home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 22 / AMIGAplus Sonderheft 22 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Rexx / ShowAlarm.ecfg < prev    next >
Text File  |  1999-11-06  |  2KB  |  65 lines

  1. /*****************************************************************
  2. **                                                              **
  3. **      ShowAlarm.ecfg                  EuraConfig-Script       **
  4. **      Zeigt die Alarm-Einstellungen                           **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),10)~='EURACONFIG' THEN ADDRESS 'EURACONFIG.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. 'VERSION CHECK=2'               /* Richtige Kommando-Version? */
  19.  
  20.  /*-- Stem-Variablen initialisieren --*/
  21. modus.0 = "schließen"           /* Schalt-Modus festlegen */
  22. modus.1 = "öffnen"
  23. modus.2 = "deaktiviert"
  24.  
  25.  /*-- Sensor-Zeiten anzeigen --*/
  26. 'ALARM FIELD=0'; startzeit = result     /* In Minuten seit 0:00 */
  27. 'ALARM FIELD=1'; endzeit   = result
  28. SAY "Startzeit: "||Right(startzeit%60,2)||":"||Right(startzeit//60,2,'0')
  29. SAY "Endzeit:   "||Right(endzeit%60,2)||":"||Right(endzeit//60,2,'0')
  30. SAY ""
  31.  
  32.  /*-- Aktor 1 anzeigen --*/
  33. 'ALARM FIELD=2'; zeit = result; IF zeit=0 THEN zeit="dauernd"; ELSE zeit=zeit||"s"
  34. 'ALARM FIELD=3'; mode = result
  35. SAY "Aktor 1:   Schaltzeit "||zeit||", Modus "||modus.mode
  36.  
  37.  /*-- Aktor 2 anzeigen --*/
  38. 'ALARM FIELD=4'; zeit = result; IF zeit=0 THEN zeit="dauernd"; ELSE zeit=zeit||"s"
  39. 'ALARM FIELD=5'; mode = result
  40. SAY "Aktor 2:   Schaltzeit "||zeit||", Modus "||modus.mode
  41. SAY ""
  42.  
  43.  /*-- Automatische Anwahl --*/
  44. 'ALARM FIELD=6'; aa = result
  45. IF aa~="0" THEN DO
  46.   SAY "Automatische Anwahl aktiviert."
  47.  
  48.   DO i=0 TO 2
  49.     'ALARM FIELD='||i+7
  50.     SAY "  Rufnummer "||i+1||": "||result
  51.   END
  52.  
  53.   'ALARM FIELD=10'
  54.   SAY "  User2User-Nachricht: '"||result||"'"
  55. END
  56. ELSE
  57.   SAY "Keine automatische Anwahl aktiviert."
  58.  
  59. SAY ""
  60. SAY ""
  61. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  62.  
  63. EXIT
  64.  
  65.